Функция VBA MID возвращает указанное количество символов из строки символов, начиная с указанного номера символа.
Mid(текст, начало)
Или
Mid(текст, начало, количество_символов)
Получить разные части текста из строки:
Sub MidExample()
MsgBox Mid("www.moonexcel.com.ua", 1, 1) 'Возвращает: w
MsgBox Mid("www.moonexcel.com.ua", 1, 3) 'Возвращает: www
MsgBox Mid("www.moonexcel.com.ua", 1, 13) 'Возвращает: www.moonexcel
MsgBox Mid("www.moonexcel.com.ua", 1, 30) 'Возвращает: www.moonexcel.com.ua
MsgBox Mid("www.moonexcel.com.ua", 5, 9) 'Возвращает: moonexcel
MsgBox Mid("www.moonexcel.com.ua", 5, 4) 'Возвращает: moon
MsgBox Mid("www.moonexcel.com.ua", 9, 5) 'Возвращает: excel
MsgBox Mid("www.moonexcel.com.ua", 16, 3) 'Возвращает: com
MsgBox Mid("www.moonexcel.com.ua", 5, 50) 'Возвращает: moonexcel.com.ua
MsgBox Mid("www.moonexcel.com.ua", 5) 'Возвращает: moonexcel.com.ua
End Sub